#! /usr/local/bin/gforth-fast
require string.fs
require http1.1.4th
require html4.0.4th
\  s" hello this is useless"
head.http
html.
head.
    s" text/html;charset=utf-8" meta.http-equiv
    title. ." ForthCGI项目:HTML4.0标签生成测试页" .title

.head
body.

h1. ." HTML 图片" .h1 hr
h5. ." 建设中……" .h5

\ hr s" 回到列表" s" test-html4.4th" a.go
hr a.close
.body
.html
bye
